home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 43.zip / ANC 15.adf / REXX / txcopy.txed < prev    next >
Text File  |  1987-01-01  |  1KB  |  39 lines
  1. /* This TxEd Plus macro will copy the copyrighted TxEd Plus programs
  2.     from the TxEd Plus master diskette onto your system disk.
  3.     NOTE THAT THIS WILL DUPLICATE COPYRIGHTED SOFTWARE WHICH
  4.     MAY ONLY BE USED BY THE OWNER OF TXED PLUS
  5.  */
  6.  
  7. 'TIMEOUT 0'
  8. 'LOAD REXX:HELP2'
  9. 'WINDOW 20 20 620 60'
  10.  
  11. ADDRESS COMMAND 'MAKEDIR RAM:Temp'
  12. ADDRESS COMMAND 'COPY C:COPY RAM:'
  13. ADDRESS COMMAND 'RAM:COPY C:ASSIGN RAM:'
  14. ADDRESS COMMAND 'RAM:COPY C:DELETE RAM:'
  15. ADDRESS COMMAND 'RAM:COPY C:RUN RAM:'
  16. ADDRESS COMMAND 'RAM:COPY TXED:LIBS/arp.library RAM:TEMP'
  17. ADDRESS COMMAND 'RAM:COPY TxEd:E ram:TEMP'
  18. ADDRESS COMMAND 'RAM:COPY TxEd:BlitzDisk ram:TEMP'
  19. ADDRESS COMMAND 'RAM:COPY TxEd:FF ram:TEMP'
  20. ADDRESS COMMAND 'RAM:COPY TxEd:FunKeys ram:TEMP'
  21. ADDRESS COMMAND 'RAM:ASSIGN C: RAM:'
  22.  
  23. SAY 'Insert your system diskette in drive DF0:'
  24. SAY 'Then click the mouse in the CLI window, and type OK<cr>'
  25.  
  26. PULL str
  27.  
  28. IF str = 'OK' THEN DO
  29.     ADDRESS COMMAND 'RAM:COPY RAM:TEMP/arp.library df0:libs'
  30.     ADDRESS COMMAND 'RAM:DELETE RAM:TEMP/arp.library'
  31.     ADDRESS COMMAND 'RAM:COPY RAM:TEMP df0:C'
  32.     SAY 'Completed'
  33.     END
  34. ELSE
  35.     SAY 'ABORTED BY USER!'
  36. ENDIF
  37. ADDRESS COMMAND 'RAM:DELETE RAM:TEMP ALL'
  38. ADDRESS COMMAND 'RAM:ASSIGN C: TXED:C'
  39.